10 ?chr$(147):cl=0:poke36879,8
20 ms=7680:mc=38400:nc=22:c=0:r=0
30 read d
40 if d=-2 then 90
50 if d=-1 then ms=ms+5:mc=mc+5:r=0:goto 30
60 if d=0 then r=r+1:c=0:goto 30
70 q=r*nc+c:poke ms+q,d:poke mc+q,cl
80 c=c+1:goto 30

90 restore:mc=38400
91 read d
92 if d=-2 then 90
93 if d=-1 then mc=mc+5:r=0:goto 91
94 if d=0 then r=r+1:c=0: goto 91
95 cl=cl+1:if cl>7 then cl=0
96 q=r*nc+c:poke mc+q,cl
97 goto 91
rem 91 r=int(rnd(1)*5):c=int(rnd(1)*22):cl=int(rnd(1)*7)
rem 93 goto 91


100 data  64,110,112, 64, 0
110 data  32, 93, 93, 32, 0
120 data  32, 93, 93, 32, 0
130 data  32, 93, 93, 32, 0
140 data  32, 93, 93, 32, 0
150 data -1

200 data 112,112, 64,110, 0
210 data  93, 93, 32, 93, 0
220 data  93,107, 64,125, 0
230 data  93, 93, 77, 32, 0
240 data  93, 93, 32, 77, 0
250 data -1

300 data 112,112, 64,110, 0
310 data  93, 93, 32, 93, 0
320 data  93, 93, 32, 93, 0
330 data  93, 93, 32, 93, 0
340 data  93,109, 64,125, 0
350 data -1

400 data 112, 64, 32,110, 0
410 data  93, 93, 77, 93, 0
420 data  93, 93, 32, 93, 0
430 data  93, 93, 32, 93, 0
440 data  93, 93, 32, 93, 0
450 data -2


